home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 April / CHIP 1996 aprilis (CD06).zip / CHIP_CD06.ISO / sac / pack / rarbatch.exe / rar / LZH2RAR.BAT < prev    next >
DOS Batch File  |  1994-12-27  |  2KB  |  74 lines
  1. REM ■■■ To convert LZH files to ~RAR~ ■■■
  2.  
  3. @Echo off
  4. if %1A==A goto Usage
  5. if %1==* goto Mask
  6. if %1==*.lzh goto Mask
  7. goto Single
  8. :Mask
  9. if exist *.lzh goto MaskYeah
  10. echo %1 -- files cannot be found.
  11. echo %1 -- files cannot be found. >>!lzh2rar.!!!
  12. goto Exit
  13. :MaskYeah
  14. if exist *. ren *. *.$e$
  15. ren *.lzh *.
  16. for %%f in (*.) do call lzh2rar %%f
  17. if exist *.$e$ ren *.$e$ *.
  18. goto Quit
  19. :Single
  20. echo LZH2RAR v0.03 (c) AS, RAR Support              Free!
  21. if exist %1.lzh goto Ok
  22. if exist %1 goto Ok
  23. goto ErrFNF
  24. :Ok
  25. if exist %1.rar goto ErrRARe
  26. mkdir $for-lzh
  27. if not exist %1.lzh goto NoExt
  28. ren %1.lzh *.
  29. :NoExt
  30. lha x %1. $for-lzh\
  31. if errorlevel 1 goto ErrExtr
  32. if not exist *.* goto ErrExtr
  33. cd $for-lzh
  34. rar m -r -s -std -tl..\%1.rar
  35. if errorlevel 1 goto ErrRAR
  36. cd ..
  37. rd $for-lzh
  38. echo %1.LZH -} %1.RAR repack successfully completed.
  39. if exist %1. erase %1.
  40. Goto Quit
  41. :ErrExtr
  42. ren %1 *.lzh
  43. rd $FOR-LZH
  44. echo %1.lZH -- File cannot be unpacked because errors!
  45. echo %1.LZH -- File cannot be unpacked because errors!
  46. >>!lzh2rar.!!!
  47. echo   (NOTE, NO EXTENSION PLEASE!!!)
  48. Goto Quit
  49. :ErrRARe
  50. echo %1.RAR -- File already exists. Cannot be repacked!
  51. echo %1.RAR -- File already exists. Cannot be repacked!
  52. >>!lzh2rar.!!!
  53. goto Quit
  54. :ErrRAR
  55. cd ..
  56. ren %1 *.lzh
  57. rd $FOR-LZH
  58. echo %1.LZH -- File cannot be repacked!
  59. echo %1.LZH -- File cannot be repacked! >>!lzh2rar.!!!
  60. echo   (NOTE, NO EXTENSION PLEASE!!!)
  61. Goto Exit
  62. :ErrFNF
  63. echo %1 -- File not found!
  64. echo %1 -- File not found! >>!lzh2rar.!!!
  65. Goto Quit
  66. :Usage
  67. echo LZH2RAR v0.03 (c) AS, RAR Support              Free!
  68. echo   Usage: lzh2rar {lzharch}
  69. echo (Note, no extension please!)
  70. :Exit
  71. if exist *.$e$ ren *.$e$ *.
  72. exit
  73. :Quit
  74.